home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol151 / sample.bas < prev    next >
Encoding:
BASIC Source File  |  1986-12-16  |  2.6 KB  |  61 lines
  1. 10 ' WINDOW FUNCTION SAMPLE PROGRAM
  2. 20 ' BY P. GUBITS
  3. 30 '
  4. 35 KEY OFF
  5. 40 DEFINT A-Z
  6. 50 DEF SEG=&H3094
  7. 60 BLOAD "WINDOW.BIN",0
  8. 70 CLS
  9. 80 ' FUNCTIONS ADDRESES
  10. 90 WINDOW = &HA : CLSWINDOW = &H43 : WRITEWIND = &H72
  11. 100 WHEREIS = &H118 : WLOCATE = &H130 : FRAME = &H148
  12. 110 '
  13. 120 ' FIRST WINDOW
  14. 130 LOCATE 1,8 : PRINT "WINDOW ONE"
  15. 140 TOPROW1 = 3 : TOPCOL1 = 6 : BTMROW1 = 10 : BTMCOL1 = 20
  16. 150 CALL WINDOW(TOPROW1,TOPCOL1,BTMROW1,BTMCOL1)    :' DEFINE THE WINDOW
  17. 160 CALL FRAME                                      :' FRAME IT
  18. 170 CALL CLSWINDOW                                  :' CLEAR THE WINDOW
  19. 180 CALL WHEREIS(CURSROW1,CURSCOL1)                 :' SAVE CURSOR POSITION
  20. 190 '
  21. 200 ' SECOND WINDOW
  22. 210 LOCATE 4,68 : PRINT "WINDOW 2"
  23. 220 TOPROW2 = 6 : TOPCOL2 = 68: BTMROW2 = 18 : BTMCOL2 = 72
  24. 230 CALL WINDOW(TOPROW2,TOPCOL2,BTMROW2,BTMCOL2)    :' DEFINE THE WINDOW
  25. 240 CALL FRAME                                      :' FRAME IT
  26. 250 CALL CLSWINDOW                                  :' CLEAR THE WINDOW
  27. 260 CALL WHEREIS(CURSROW2,CURSCOL2)                 :' SAVE CURSOR POSITION
  28. 270 '
  29. 280 ' THIRD WINDOW
  30. 290 LOCATE 14,35 : PRINT "WINDOW THREE"
  31. 300 TOPROW3 = 16: TOPCOL3 = 20: BTMROW3 = 20 : BTMCOL3 = 62
  32. 310 CALL WINDOW(TOPROW3,TOPCOL3,BTMROW3,BTMCOL3)    :' DEFINE THE WINDOW
  33. 320 CALL FRAME                                      :' FRAME IT
  34. 330 CALL CLSWINDOW                                  :' CLEAR THE WINDOW
  35. 340 CALL WHEREIS(CURSROW3,CURSCOL3)                 :' SAVE CURSOR POSITION
  36. 350 '
  37. 360 FOR I=14 TO 255
  38. 370 ST$ = CHR$(I)
  39. 380 '
  40. 390 ' WINDOW 1
  41. 400 CALL WINDOW(TOPROW1,TOPCOL1,BTMROW1,BTMCOL1)    :' DEFINE THE WINDOW
  42. 410 CALL WLOCATE(CURSROW1,CURSCOL1)                 :' LOCATE CURSOR IN PLACE
  43. 420 CALL WRITEWIND(ST$)                             :' WRITE THE STRING
  44. 430 CALL WHEREIS(CURSROW1,CURSCOL1)                 :' SAVE THE CURSOR POSITION
  45. 440 '
  46. 450 ' WINDOW 2
  47. 460 CALL WINDOW(TOPROW2,TOPCOL2,BTMROW2,BTMCOL2)    :' DEFINE THE WINDOW
  48. 470 CALL WLOCATE(CURSROW2,CURSCOL2)                 :' LOCATE CURSOR IN PLACE
  49. 480 CALL WRITEWIND(ST$)                             :' WRITE THE STRING
  50. 490 CALL WHEREIS(CURSROW2,CURSCOL2)                 :' SAVE THE CURSOR POSITION
  51. 500 '
  52. 510 ' WINDOW 3
  53. 520 CALL WINDOW(TOPROW3,TOPCOL3,BTMROW3,BTMCOL3)    :' DEFINE THE WINDOW
  54. 530 CALL WLOCATE(CURSROW3,CURSCOL3)                 :' LOCATE CURSOR IN PLACE
  55. 540 CALL WRITEWIND(ST$)                             :' WRITE THE STRING
  56. 550 CALL WHEREIS(CURSROW3,CURSCOL3)                 :' SAVE THE CURSOR POSITION
  57. 560 NEXT I
  58. 570 GOTO 360
  59. ' WRITE THE STRING
  60. 550 CALL WHEREIS(CURSROW3,CURSCOL3)                 :' SAVE THE CURSOR POSITION
  61. 5